home *** CD-ROM | disk | FTP | other *** search
/ TPUG - Toronto PET Users Group / TPUG Users Group CD / TPUG Users Group CD.iso / C64 / B-Business / (c)b4.d64 / tips.c (.txt) < prev    next >
Commodore BASIC  |  2007-02-04  |  10KB  |  249 lines
  1. 5 PRINT"[147]":POKE53281,1:POKE646,0
  2. 10 PRINT"TIPS FOR BEGINNERS":PRINT
  3. 20 PRINT"BY CLIFFORD JANSEN"
  4. 21 PRINT"TPUG #9743"
  5. 25 FOR T=1TO4000:NEXT
  6. 30 PRINT"[147]YES, I SAID.......":FORT=1TO2000:NEXT:PRINT
  7. 35 FORP=1TO20:PRINT"TIPS FOR BEGINNERS   TIPS FOR BEGINNERS[146]   ";
  8. 36 X=INT(15*RND(1)):POKE646,X:NEXTP
  9. 40 PRINTTAB(40)"[144]       BY......................"
  10. 45 FORN=1TO6000:NEXT
  11. 46 FORN=1TO12:PRINT"[147][144]CLIFFORD JANSEN"
  12. 47 FORP=1TO100:NEXTP:NEXTN
  13. 50 FORN=1TO20:PRINT"[147]CLIFFORD  JANSEN"
  14. 52 X=INT(15*RND(1)):Y=INT(15*RND(1))
  15. 53 POKE53280,X:POKE53281,Y
  16. 54 FORT=1TO100:NEXTT:NEXTN
  17. 55 POKE53281,1:POKE646,0
  18. 70 PRINT"[147]WOULD YOU LIKE TO LEARN A FEW TIPS ON"
  19. 75 PRINT"HOW THIS INTRODUCTION WAS PROGRAMMED?"
  20. 80 PRINT:PRINT"IT INCLUDES:"
  21. 85 PRINT"-CHANGING SCREEN COLOURS"TAB(40)"-CHANGING THE COLOUR OF PRINT"
  22. 90 PRINT"ON THE SCREEN"TAB(40):PRINT"-FILLING UP THE SCREEN WITH THE"
  23. 95 PRINT"SAME MESSAGE"
  24. 100 PRINT"-PLACING PRINT IN SPECIFIC PLACES"
  25. 105 PRINT"-FLASHING A NAME ON THE SCREEN"
  26. 110 PRINT"-IT WILL ALSO SUGGEST A WAY TO"
  27. 111 PRINT"SIMPLIFY TYPING LINES OF DATA"
  28. 120 PRINT:PRINT"THE FOLLOWING WERE ALSO USED:"
  29. 125 PRINT"1)POKES   2)FOR...TO   3)REVS ON[146] AND OFF    4)CURSORS    ";
  30. 126 PRINT"5)RND    6)GET    7)ON"
  31. 129 PRINT:PRINT"PRESS RETURN[146]"
  32. 130 GETA$:IFA$=""GOTO130
  33. 135 IFA$=CHR$(13)THENPRINT"[147]"
  34. 140 PRINT:PRINT"WHERE POSSIBLE, THE RESULT OF RUNNING A PROGRAM WILL APPEAR AT THE";
  35. 145 PRINT" TOP OF THE   SCREEN, WHILE THE PROGRAM LINES WILL    APPEAR UNDER IT"
  36. 150 PRINT:PRINT"REFERENCE TO COMMODORE GUIDES WILL BE   GIVEN, WHERE POSSIBLE"
  37. 155 PRINT:PRINT"YOU WILL BE GIVEN A REFERENCE TO THE    LINE NO. IN THE";
  38. 160 PRINT" PROGRAM IN CASE YOU'D   LIKE TO LIST IT"
  39. 161 PRINT"IN EXAMPLES:[146]"
  40. 162 PRINT"PRINT[211]=PRINT'SHIFTED CLR/HOME'"
  41. 163 PRINT"PRINTS[146]=PRINT'UNSHIFTED CLR/HOME'"
  42. 164 PRINT"' IS USED FOR WORDS IN QUOTES--'' [146]"
  43. 165 PRINT"PRESS RETURN[146]"
  44. 170 GETA$:IFA$=""GOTO170
  45. 175 IFA$=CHR$(13)THEN PRINT"[147]"
  46. 180 PRINTSPC(18)"MENU"
  47. 185 PRINT:PRINTSPC(7)"1. SCREEN & PRINT COLOURS"
  48. 190 PRINT:PRINTSPC(4)"2. PRINTING WITH TAB--;--,--SPC"
  49. 195 PRINT:PRINTSPC(9)"3. FILLING THE SCREEN"
  50. 200 PRINT:PRINTSPC(8)"4. FLASHING A NAME"
  51. 205 PRINT:PRINTSPC(14)"5. DATA LINES"
  52. 210 PRINT:PRINTSPC(11)"6. OTHER KEYWORDS"
  53. 211 PRINT:PRINTSPC(10)"7. END THE PROGRAM"
  54. 215 PRINTSPC(14)"PRESS A NUMBER[146]"
  55. 220 GETA$:IFA$=""GOTO220
  56. 225 IFA$<"1"ORA$>"7"THEN GOTO 220
  57. 230 M=VAL(A$)
  58. 235 ONMGOTO1000,2000,3000,4000,5000,6000,7000
  59. 1000 PRINT"[147]"SPC(16)"COLOURS[146]"
  60. 1001 PRINT:PRINT"IF YOU DON'T LIKE TYPING BLUE ON BLUE,  YOU MAY CHANGE";
  61. 1005 PRINT" BOTH BACKGROUND & PRINT  COLOURS BY RUN-ING:"
  62. 1010 PRINT:PRINT"POKE53281,#:POKE646,#:PRINT'[211]':NEW[146]"
  63. 1015 PRINT:PRINT"-WHERE: #=COLOUR NUMBER"
  64. 1020 PRINT"        PRINT[211]=SHIFT CLR/HOME KEY"
  65. 1025 PRINT"-THE NUMBERS FOR COLOURS ARE FOUND IN:"
  66. 1030 PRINT" USERS GUIDE:P.61   AND   REFERENCE      GUIDE P.383"
  67. 1035 PRINT"-THE BORDER COLOUR IS CHANGED BY         POKE53280,#"
  68. 1040 PRINT"-THE WORD 'NEW' IS ADDED, SO THAT THIS   LINE #, WILL NOT";
  69. 1045 PRINT" APPEAR IN PROGRAMS     THAT YOU BEGIN TO TYPE, ";
  70. 1050 PRINT"IF YOU USED     PROGRAM (NOT DIRECT)MODE"
  71. 1051 PRINT"EXAMPLE:LINE 5 OF THIS PROGRAM[146]"
  72. 1055 PRINTSPC(9)"PRESS RETURN[146]"
  73. 1060 GETA$:IFA$=""THEN1060
  74. 1065 IFA$=CHR$(13)THENPRINT"[147]":GOTO1070
  75. 1070 PRINT:PRINT"HOW DID ALL THE SCREEN AND BORDER       COLOURS CHANGE?"
  76. 1075 PRINT:PRINT"SINCE THERE ARE 16 COLOURS, NUMBERED    FROM 0 TO 15"
  77. 1080 PRINT:PRINT"BY GIVING LINE NOS. AND RUN-ING:"
  78. 1085 PRINT"X=INT(15*RND(1)):Y=INT(15*RND(1))[146]"
  79. 1090 PRINT"FORN=1TO20:POKE53281,X:POKE53280,Y:NEXTN[146]"
  80. 1095 PRINT:PRINT"THE COMPUTER WILL RANDOMLY POKE NUMBERS BETWEEN 0 AND 15, 20 TIMES"
  81. 1100 PRINT"INTO APPROPRIATE PLACES"
  82. 1101 PRINT"E.G.LINES 50-54 WHICH ALSO INCLUDE THE  FLASHING INSTRUCTIONS ";
  83. 1102 PRINT", TO BE DISCUSSED LATER[146]"
  84. 1105 PRINT"PRESS RETURN[146] TO RETURN TO MENU"
  85. 1110 GETA$:IFA$=""THEN1110
  86. 1115 IFA$=CHR$(13)THENPRINT"[147]":GOTO180
  87. 2000 PRINT"[147]":PRINT:PRINTSPC(8)"PRINTING--TABS--;--,--SPC[146]"
  88. 2001 PRINT:PRINT"THE WAY VARIABLES AND PHRASES APPEAR ON A SCREEN ";
  89. 2002 PRINT"ARE AFFECTED BY THE USE OF ;      AND , "
  90. 2003 PRINT:PRINT"THE TOP LINE (YOU'RE ABOUT TO SEE)      NUMBERS THE   COLUMNS"
  91. 2004 PRINT:PRINT"THE PRINT ABOVE, IS PRODUCED BY THE     LINES BELOW"
  92. 2005 PRINT:PRINT"WE MADE:A=1,B=2,C=3,D=4,E=5,F=6"
  93. 2006 PRINT:PRINT"PRESS RETURN[146]"
  94. 2007 GETA$:IFA$=""GOTO2007
  95. 2009 PRINT"[147]1234567890123456789012345678901234567890A=1,B=2,C=3,D=4,E=5,F=6[146]"
  96. 2010 A=1:B=2:C=3:D=4:E=5:F=6
  97. 2015 PRINTA;B,C
  98. 2020 PRINT;A;B,C
  99. 2025 PRINT,A;B,C:PRINT
  100. 2030 PRINTA;B,C,D,E,F
  101. 2035 PRINT"HI!"A;B,C
  102. 2045 PRINTA;B:PRINTC;D
  103. 2050 PRINTA;B;:PRINTC;D
  104. 2056 PRINT"PRINTA;B,C[146] PUTS B NEXT TO A,BUT C,10    SPACES FROM A"
  105. 2057 PRINT"PRINT;A;B,C[146] DOES THE SAME THING"
  106. 2058 PRINT"PRINT,A;B,C[146] PUTS A 10 COLS.AWAY(COL.12)"
  107. 2059 PRINT"PRINT[146] BY ITSELF,LEAVES A LINE BLANK"
  108. 2060 PRINT"PRINTA;B,C,D,E,F[146] PUTS B NEXT TO A AND   SPACES THE REST"
  109. 2061 PRINT"PRINT'HI!'A;B,C[146] PUTS HI IN 1ST COL.
  110. 2062 [153]"PRINTA,B:PRINTC,DWAITPUTS THEM ON 2 LINES"
  111. 2063 [153]"PRINTA,B;:PRINTC,DWAITPUTS THEM ON 1 LINE"
  112. 2064 [153]"PRESS RETURNWAIT"
  113. 2065 [161]A$:[139]A$[178]""[167]2065
  114. 2066 [139]A$[178][199](13)[167] [137]2070
  115. 2070 [153]"LOADTHESE LINES ARE IN THE PROGRAM:2015-2050WAIT"
  116. 2071 [153]"SEE:USER'S GUIDE PP.28-29 &             REFERENCE BOOK P.3WAIT"
  117. 2072 [153]"DO YOU WISH TO SEE THE COMPLETE TABLE   AGAIN?    (Y OR N)"
  118. 2073 [161]A$:[139]A$[178]""[167]2073
  119. 2074 [139]A$[178]"Y"[167]2009
  120. 2075 [153]"LOADTABS & SPCWAIT"
  121. 2080 [153]"1234567890123456789012345678901234567890"
  122. 2085 [153]"TORONTO"[163]8)"PET"[163]12)"USER'S"[163]19)"GROUP"
  123. 2090 [153]:[153]"TORONTO"[166]3)"PET"[166]3)"USER'S"[166]3)"GROUP"
  124. 2095 [153]"'TORONTO'TAB(8)'PET'TAB(12)'USER'S'TAB(19)'GROUP'"
  125. 2100 [153]"'TORONTO'SPC(3)'PET'SPC(3)'USER'S'SPC(3)'GROUP'WAIT"
  126. 2105 [153]"TAB PUTS THE BEGINNING OF WORDS IN THE  EXACT COLUMN PLUS ONE"
  127. 2106 [153]"TAB CAN BE A NUMBER GREATER THAN 40 BUT IT CANNOT EXCEED 255"
  128. 2107 [153]"IF TAB IS 40--IT WILL PRINT IN COL.41   I.E.IT WILL START A NEW LINE"
  129. 2110 [153]"SPC LEAVES THE EXACT NUMBER OF SPACES   BETWEEN WORDS"
  130. 2115 [153]"PRESS RETURNWAIT"
  131. 2120 [161]A$:[139]A$[178]""[137]2120
  132. 2125 [139]A$[178][199](13)[167][137]2130
  133. 2130 [153]"LOADSEE USER'S GUIDE P.129 REFERENCE GUIDE   PP.88 & 83WAIT"
  134. 2135 [153]"DO YOU WISH TO SEE THE PREVIOUS TABLE   AGAIN?  (Y OR N)"
  135. 2140 [161]A$:[139]A$[178]""[137]2140
  136. 2145 [139]A$[178]"Y"[167]2075
  137. 2150 [153]"LOAD":[137]180
  138. 3000 [153]"LOADFILLING THE SCREEN"
  139. 3005 [129]P[178]1[164]20:[153]"FILLING THE SCREEN  ";:[130]P
  140. 3010 [153]:[153]"WE'VE JUST FILLED HALF THE SCREEN BY:"
  141. 3015 [153]:[153]"FORP=1TO20:PRINT'FILLING THE SCREEN';:NEXTP"
  142. 3016 [153]:[153]"DON'T FORGET THE ; AFTER THE QUOTES"
  143. 3020 [153]: [153]"CHANGE 20 TO 40 TO FILL THE WHOLE SCREEN"
  144. 3025 [153]"PRESS RETURNWAIT"
  145. 3030 [161] A$:[139]A$[178]""[137]3030
  146. 3035 [139]A$[178][199](13)[167][153]"LOAD":[137]3040
  147. 3040 [153]:[153]"TO FILL THE SCREEN WITH YOUR NAME IN    DIFFERENT PRINT COLOURS:"
  148. 3045 [153]"FORP=1TO20:PRINT 'YOUR NAME  ';"
  149. 3050 [153]"X=INT(15*RND(1)):POKE646,X:NEXTPWAIT"
  150. 3055 [153]:[153]"THE NUMBERS FOR COLOURS ARE FOUND IN:"
  151. 3060 [153]"USER'S GUIDE P.61   AND   REFEREMCE     GUIDE P.383"
  152. 3062 [153]:[153]"SEE LINES 30,35,36,40 IN THIS PROGRAM"
  153. 3065 [153]:[153]"NOTE:WAITTHE COLOUR OF 1 LINE CAN BE CHANGED BY";
  154. 3070 [153]" HOLDING DOWN CTRLWAIT OR C<WAIT"
  155. 3075 [153]"AND A NUMBER BETWEEN 1 & 8";
  156. 3076 [153]" INSIDE THE   QUOTE, JUST BEFORE YOUR NAME"
  157. 3080 [153]:[153]"SEE ALSO: USER'S GUIDE PP. 11-12 AND    P.57"
  158. 3085 [153]:[153]"DO YOU WISH TO SEE THE PREVIOUS TABLE   AGAIN?  (Y OR N)"
  159. 3090 [161]A$:[139]A$[178]""[137]3090
  160. 3095 [139]A$[178]"Y"[167]3000
  161. 3100 [153]"LOAD":[137]180
  162. 4000 [129]P[178]1[164]100:[153]"LOADFLASHING":[130]P
  163. 4010 [129] Z[178]1[164]25:[153]"LOADFLASHING":[129]T[178]1[164]400:[130]T:[130]Z
  164. 4015 [153]"LOADFLASHINGWAIT"
  165. 4020 [153]"AND THE WINNER IS:"
  166. 4025 [129] P[178]1[164]200:[153]"    "
  167. 4030 [153]"TPUG":[130]P
  168. 4035 [153]"THE FIRST--FLASHING--WAS DONE WITH:"
  169. 4040 [153]"FORP=1TO100:PRINT'(null)FLASHING':NEXTPWAIT"
  170. 4045 [153]"SOME CURSOR COMMANDS WERE INCLUDED TO   POSITION THE WORD ON SCREEN"
  171. 4050 [153]"THE SECOND-FLASHING-WAS SLOWED DOWN BY  INCLUDING A FOR...TOWAIT";
  172. 4055 [153]" TIMING LOOP"
  173. 4060 [153]"FORP=1TO25:PRINT'(null)FLASHING':FORT=1TO400:NEXTT:NEXTPWAIT"
  174. 4065 [153]"AGAIN, CURSOR COMMANDS WERE USED"
  175. 4070 [153]"THOSE 2 EXAMPLES USED (null) (CLR/HOME) TO   CLEAR THE WHOLE ";
  176. 4075 [153]"SCREEN BETWEEN PRINTINGS"
  177. 4080 [153]"IF YOU ONLY WANT PART OF THE SCREEN TO  FLASH, AS IN THE 3RD";
  178. 4085 [153]" EXAMPLE (TPUG), YOU HAVE TO PRINT A BLANK IN THE SAME POSI-TION";
  179. 4090 [153]" AS THE WORD";
  180. 4095 [153]". THIS IS DONE WITH THE SWAIT (HOME)KEY AND CURSOR COMMANDS"
  181. 4100 [153]"PRESS RETURNWAIT"
  182. 4105 [161]A$:[139]A$[178]""[137]4105
  183. 4110 [139]A$[178][199](13)[167] [153]"LOAD":[137]4115
  184. 4115 [153]"THE 3RD FLASHING WAS ACHIEVED BY:"
  185. 4120 [153]"FOR P=1TO200:PRINT'QQ]]]]]]]]]]]]]]]]]]WAIT    SWAIT'"
  186. 4125 [153]"PRINT'QQ]]]]]]]]]]]]]]]]]]WAITTPUGSWAIT':NEXTP"
  187. 4130 [153]"STOPWHERE'QWAIT'=CRSR DOWN ----  ']WAIT'=CRSR RIGHT"
  188. 4135 [153]"AND 'SWAIT'=HOME (NOT SHIFTED)"
  189. 4140 [153]"DO YOU WISH TO SEE THE PREVIOUS PROGRAM AGAIN?  (Y OR N)"
  190. 4145 [161]A$:[139]A$[178]""[137]4145
  191. 4150 [139] A$[178]"Y"[137]4000
  192. 4155 [153]"LOAD":[137]180
  193. 5000 [153]"LOADDATA LINESWAIT"
  194. 5005 [153]"ONE OF THE MOST BORING JOBS IN COPYING "
  195. 5010 [153]"A PROGRAM, IS COPYING THE DATA LINES."
  196. 5015 [153]"WHILE NOT MUCH CAN BE DONE ABOUT THIS "
  197. 5020 [153]"IT CAN BE SIMPLIFIED AS FOLLOWS:"
  198. 5021 [153]"PRESS RETURN"
  199. 5022 [161]A$:[139]A$[178]""[137]5022
  200. 5023 [139]A$[178][199](13)[167][153]"LOAD":[137]5025
  201. 5025 [153]"LOOK AT THE EXAMPLE IN THE USER'S GUIDE    PP.88-89"
  202. 5030 [153]"LINE 90 HAS THE STATEMENT 'GOTO10' AND  THEN LINES 100-120 ";
  203. 5035 [153]"HAVE THE WORD-DATA-"
  204. 5040 [153]"AFTER YOU'VE TYPED LINE 90 MOVE IT TO   THE TOP OF THE SCREEN";
  205. 5041 [153]" USING CRSR DOWN"
  206. 5042 [153]"NOW MOVE THE CURSOR UP UNDER LINE 90"
  207. 5045 [153]"WITHOUT GIVING A LINE# TYPE:STOP "
  208. 5050 [153]"FORN=100TO120STEP5:PRINTN;'DATA':NEXTWAIT"
  209. 5055 [153]"THE NUMBERED LINES WITH THE WORD DATA   WILL APPEAR"
  210. 5060 [153]"MOVE THE CURSOR UP TO THE LINE#100,"
  211. 5065 [153]"MOVE THE CURSOR ACROSS '100 DATA' AND   INSERT THE DATA VALUES";
  212. 5070 [153]" 34,75,250 ETC."
  213. 5075 [153]"WHEN YOU PRESS THE 'RETURN KEY' THIS    LINE WILL NOW BE";
  214. 5080 [153] " PART OF YOUR PROGRAM"
  215. 5090 [153] "NO OTHER LINES WILL BE PART OF THE PROG-RAM ";
  216. 5095 [153] "UNTIL THE CURSOR PASSES OVER THEMWAIT"
  217. 5100 [153]"PRESS RETURNWAIT"
  218. 5105 [161]A$:[139]A$[178]""[137]5105
  219. 5110 [139]A$[178][199](13)[167][153]"LOAD":[137]5115
  220. 5115 [153]"IMPORTANT NOTESWAIT"
  221. 5120 [153]"MAKE SURE THE DATA LINES (IN THE PROGRAM YOU ARE COPYING) ";
  222. 5121 [153]"ARE NUMBERED IN 5'S OR 10'S. OR CHANGE THE NUMBERING";
  223. 5122 [153]" TO SUIT  YOUR NEEDS"
  224. 5125 [153]"DON'T ALLOW MORE THAN 20 DATA LINES TO  APPEAR AT A TIME, BECAUSE"
  225. 5130 [153]"THE FIRST ONES WILL DIASAPPEAR OFF THE  TOP OF THE SCREEN"
  226. 5135 [153]"YOU CAN ALWAYS REPEAT THE 'FOR TO'      STATEMENT WHEN YOU NEED "
  227. 5140 [153] "MORE LINES."
  228. 5150 [153]"DO YOU WISH TO SEE THE PREVIOUS PROGRAM AGAIN?    (Y OR N)
  229. 5155 GETA$:IFA$=""GOTO5155
  230. 5160 IFA$="Y"GOTO5000
  231. 5165 PRINT"[147]":GOTO180
  232. 6000 PRINT"[147]OTHER KEYWORDS[146]"
  233. 6005 PRINT"HERE ARE SOME OF THE PROGRAM LINE NUM-  BERS WHERE DIFFERENT";
  234. 6010 PRINT" KEYWORDS WERE USED:"
  235. 6011 PRINT"YOU MAY LIST THEM TO SEE THEIR USES"
  236. 6015 PRINT"POKE:[146] 5,53,55."
  237. 6020 PRINT"FOR...TO:[146] 45,46,47."
  238. 6025 PRINT"REVS ON & OFF:[146] 1105,2006,2064."
  239. 6030 PRINT"CURSORS:[146] 10,20,21."
  240. 6035 PRINT"RND:[146] 36,52-53."
  241. 6040 PRINT"GET:[146] 170-175,1060-1065."
  242. 6045 PRINT"ON:[146] 230-235."
  243. 6050 PRINT"PRESS RETURN[146] TO RETURN TO MENU"
  244. 6055 GETA$:IFA$=""GOTO6055
  245. 6060 IFA$=CHR$(13)THENPRINT"[147]":GOTO180
  246. 7000 PRINT"[147]":PRINT:INPUT"PLEASE TYPE YOUR NAME";A$
  247. 7005 FORP=1TO30:PRINT"GOOD-BYE ";A$" ";A$"[146] ";A$
  248. 7010 X=INT(15*RND(1)):POKE646,X:NEXTP:POKE646,0
  249.